home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / TextServices.p < prev    next >
Encoding:
Text File  |  1996-05-01  |  16.1 KB  |  427 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TextServices.p
  3.  
  4.      Contains:    Text Services Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT TextServices;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __TEXTSERVICES__}
  28. {$SETC __TEXTSERVICES__ := 1}
  29.  
  30. {$I+}
  31. {$SETC TextServicesIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __CONDITIONALMACROS__}
  35. {$I ConditionalMacros.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __EVENTS__}
  41. {$I Events.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __MENUS__}
  44. {$I Menus.p}
  45. {$ENDC}
  46. {$IFC UNDEFINED __AEDATAMODEL__}
  47. {$I AEDataModel.p}
  48. {$ENDC}
  49. {$IFC UNDEFINED __AEREGISTRY__}
  50. {$I AERegistry.p}
  51. {$ENDC}
  52. {$IFC UNDEFINED __COMPONENTS__}
  53. {$I Components.p}
  54. {$ENDC}
  55. {$IFC FOR_SYSTEM8_PREEMPTIVE }
  56. {$IFC UNDEFINED __TEXTOBJECTS__}
  57. {$I TextObjects.p}
  58. {$ENDC}
  59. {$IFC UNDEFINED __LOCALEOBJECTS__}
  60. {$I LocaleObjects.p}
  61. {$ENDC}
  62. {$IFC UNDEFINED __COLLECTIONS__}
  63. {$I Collections.p}
  64. {$ENDC}
  65. {$IFC UNDEFINED __HILISTTYPES__}
  66. {$I HIListTypes.p}
  67. {$ENDC}
  68. {$IFC UNDEFINED __HIWINDOWTYPES__}
  69. {$I HIWindowTypes.p}
  70. {$ENDC}
  71. {$ENDC}
  72.  
  73. {$PUSH}
  74. {$ALIGN MAC68K}
  75. {$LibExport+}
  76.  
  77. {$IFC FOR_SYSTEM7_AND_SYSTEM8_PREEMPTIVE }
  78.  
  79. CONST
  80.     kTextService                = 'tsvc';                        {  component type for the component description  }
  81.     kInputMethodService            = 'inpm';                        {  component subtype for the component description  }
  82.     kTSMVersion                    = $0200;                        {  Version of the Text Services Manager is 2.0   }
  83.     kTextServiceVersion2        = 'tsv2';                        {  Interface type for V2 interfaces  }
  84.  
  85. {  Standard collection tags }
  86.     kInteractiveServicesTag        = 'tmin';
  87.     kLocaleIDTag                = 'loce';
  88.     kTextInputObjectTag            = 'tiot';
  89.     kLocaleObjectRefTag            = 'lobj';
  90.     kLocaleRefTag                = 'lref';
  91.     kKeyboardInputMethodContextTag = 'kinp';
  92.     kKeyboardLocaleObjectRefTag    = 'kilo';
  93.     kHandwritingInputMethodContextTag = 'hinp';
  94.     kHandwritingLocaleObjectRefTag = 'hilo';
  95.     kSpeechInputMethodContextTag = 'sinp';
  96.     kSpeechLocaleObjectRefTag    = 'silo';
  97.     kPasswordModeTag            = 'pwdm';
  98.     kRefconTag                    = 'refc';
  99.     kUseFloatingWindowTag        = 'uswm';
  100.     kReadOnlyDocumentTag        = 'isro';
  101.     kSupportsMultiInlineHolesTag = 'minl';
  102.     kProtocolVersionTag            = 'nprt';
  103.     kTSMContextCollectionTag    = 'tsmx';
  104.  
  105. {  Standard tags for input method modes }
  106.     kIMRomanInputMode            = 'romn';
  107.     kIMPasswordInputMode        = 'pasw';
  108.     kIMXingInputMode            = 'xing';
  109.     kIMHuaInputMode                = 'huam';
  110.     kIMPinyinInputMode            = 'piny';
  111.     kIMQuweiInputMode            = 'quwe';
  112.     kIMCangjieInputMode            = 'cgji';
  113.     kIMJianyiInputMode            = 'jnyi';
  114.     kIMZhuyinInputMode            = 'zhuy';
  115.     kIMB5CodeInputMode            = 'b5cd';
  116.     kIMKatakanaInputMode        = 'kata';
  117.     kIMHiraganaInputMode        = 'hira';
  118.  
  119. {  Variant tags for the input modes }
  120.     kIM2ByteInputMode            = '2byt';
  121.     kIM1ByteInputMode            = '1byt';
  122.     kIMDirectInputMode            = 'dinp';
  123.  
  124. {  Text Services LocaleObject Attributes }
  125.     kNeedsInputWindow            = 1;
  126.     kHandlesUpdateRegion        = 2;
  127.     kHandlesGetRegion            = 3;
  128.     kHandlesPos2Offset            = 4;
  129.     kHandlesOffset2Pos            = 5;
  130.     kInPasswordMode                = 6;
  131.     kHandleMultipleHoles        = 7;
  132.     kDocumentIsReadOnly            = 8;
  133.  
  134. {$ENDC}
  135. {$IFC FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED }
  136.  
  137. CONST
  138.                                                                 {  Component Flags in ComponentDescription  }
  139.     bTakeActiveEvent            = 15;                            {  bit set if the component takes active event  }
  140.     bHandleAERecording            = 16;                            {  bit set if the component takes care of recording Apple Events <new in vers2.0>  }
  141.     bScriptMask                    = $00007F00;                    {  bit 8 - 14  }
  142.     bLanguageMask                = $000000FF;                    {  bit 0 - 7   }
  143.     bScriptLanguageMask            = $00007FFF;                    {  bit 0 - 14   }
  144.  
  145.                                                                 {  Low level routines which are dispatched directly to the Component Manager  }
  146.     kCMGetScriptLangSupport        = $0001;                        {  Component Manager call selector 1  }
  147.     kCMInitiateTextService        = $0002;                        {  Component Manager call selector 2  }
  148.     kCMTerminateTextService        = $0003;                        {  Component Manager call selector 3  }
  149.     kCMActivateTextService        = $0004;                        {  Component Manager call selector 4  }
  150.     kCMDeactivateTextService    = $0005;                        {  Component Manager call selector 5  }
  151.     kCMTextServiceEvent            = $0006;                        {  Component Manager call selector 6  }
  152.     kCMGetTextServiceMenu        = $0007;                        {  Component Manager call selector 7  }
  153.     kCMTextServiceMenuSelect    = $0008;                        {  Component Manager call selector 8  }
  154.     kCMFixTextService            = $0009;                        {  Component Manager call selector 9  }
  155.     kCMSetTextServiceCursor        = $000A;                        {  Component Manager call selector 10  }
  156.     kCMHidePaletteWindows        = $000B;                        {  Component Manager call selector 11  }
  157.  
  158. {$ENDC}
  159. {$IFC FOR_SYSTEM8_PREEMPTIVE }
  160.  
  161. TYPE
  162.     TSMServiceSpecificationPtr = ^TSMServiceSpecification;
  163.     TSMServiceSpecification = RECORD
  164.         objectName:                StringPtr;
  165.         countPairs:                ItemCount;
  166.         pairs:                    NameValuePairPtr;
  167.     END;
  168.  
  169. {  New opaque definitions for types }
  170.     TSMContext = ^LONGINT;
  171.     TSMServiceContextRef = ^LONGINT;
  172. {$ENDC}
  173. {$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
  174. {  New opaque definitions for types }
  175.  
  176. TYPE
  177.     TSMDocumentID = ^LONGINT;
  178.     InterfaceTypeList                    = ARRAY [0..0] OF OSType;
  179. {$ENDC}
  180. {$IFC FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED }
  181. {  Text Service Info List  }
  182.  
  183. TYPE
  184.     TextServiceInfoPtr = ^TextServiceInfo;
  185.     TextServiceInfo = RECORD
  186.         fComponent:                Component;
  187.         fItemName:                Str255;
  188.     END;
  189.  
  190.     TextServiceListPtr = ^TextServiceList;
  191.     TextServiceList = RECORD
  192.         fTextServiceCount:        INTEGER;                                {  number of entries in the 'fServices' array  }
  193.         fServices:                ARRAY [0..0] OF TextServiceInfo;        {  Note: array of 'TextServiceInfo' records follows  }
  194.     END;
  195.  
  196.     TextServiceListHandle                = ^TextServiceListPtr;
  197.     ScriptLanguageRecordPtr = ^ScriptLanguageRecord;
  198.     ScriptLanguageRecord = RECORD
  199.         fScript:                ScriptCode;
  200.         fLanguage:                LangCode;
  201.     END;
  202.  
  203.     ScriptLanguageSupportPtr = ^ScriptLanguageSupport;
  204.     ScriptLanguageSupport = RECORD
  205.         fScriptLanguageCount:    INTEGER;                                {  number of entries in the 'fScriptLanguageArray' array  }
  206.         fScriptLanguageArray:    ARRAY [0..0] OF ScriptLanguageRecord;    {  Note: array of 'ScriptLanguageRecord' records follows  }
  207.     END;
  208.  
  209.     ScriptLanguageSupportHandle            = ^ScriptLanguageSupportPtr;
  210. {$ENDC}
  211. {$IFC FOR_SYSTEM8_PREEMPTIVE }
  212. {  Low level TSMContext routines  }
  213. FUNCTION NewTSMContext(VAR context: TSMContext; locale: LocaleRef; refcon: LONGINT): OSStatus; C;
  214. FUNCTION DeleteTSMContext(context: TSMContext): OSStatus; C;
  215. FUNCTION OpenTSMService(context: TSMContext; service: LocaleObjectRef): OSStatus; C;
  216. FUNCTION CloseTSMService(context: TSMContext): OSStatus; C;
  217. FUNCTION GetTSMService(context: TSMContext; VAR serviceSpec: TSMServiceSpecification; VAR service: LocaleObjectRef): OSStatus; C;
  218. FUNCTION NextTSMService(context: TSMContext; VAR service: LocaleObjectRef): OSStatus; C;
  219. FUNCTION GetTSMRefcon(context: TSMContext; VAR refcon: LONGINT): OSStatus; C;
  220. FUNCTION SetTSMRefcon(context: TSMContext; refcon: LONGINT): OSStatus; C;
  221. FUNCTION GetTSMLocale(context: TSMContext; VAR locale: LocaleRef): OSStatus; C;
  222. FUNCTION SetTSMLocale(context: TSMContext; locale: LocaleRef): OSStatus; C;
  223. FUNCTION GetSOMObjectFromTSMContext(context: TSMContext): Ptr; C;
  224. FUNCTION AddTSMContextCollectionItem(context: TSMContext; itemTag: CollectionTag; id: UInt32; itemSize: ByteCount; itemData: UNIV Ptr): OSStatus; C;
  225. FUNCTION GetTSMContextCollectionItemData(context: TSMContext; tag: CollectionTag; id: UInt32; sizeAllowed: ByteCount; VAR sizeReturned: ByteCount; itemData: UNIV Ptr): OSStatus; C;
  226. FUNCTION RemoveTSMContextCollectionItem(context: TSMContext; itemTag: CollectionTag; id: UInt32): OSStatus; C;
  227. {$ENDC}
  228. {$IFC FOR_SYSTEM8_COOPERATIVE }
  229. {  Text Service Info List  }
  230.  
  231. TYPE
  232.     InlineEditInfoPtr = ^InlineEditInfo;
  233.     InlineEditInfo = RECORD
  234.         fStart:                    UInt32;
  235.         fEnd:                    UInt32;
  236.         fText:                    TextObject;
  237.     END;
  238.  
  239. {  New handler routines  }
  240. FUNCTION SetTSMEnabled(state: BOOLEAN): OSStatus; C;
  241. FUNCTION SetTSMDocumentPasswordMode(idocID: TSMDocumentID; Enabled: BOOLEAN): OSStatus; C;
  242. FUNCTION AddTSMDocumentCollectionItem(idocID: TSMDocumentID; itemTag: CollectionTag; id: UInt32; itemSize: ByteCount; itemData: UNIV Ptr): OSStatus; C;
  243. FUNCTION GetTSMDocumentCollectionItemData(idocID: TSMDocumentID; tag: CollectionTag; id: UInt32; sizeAllowed: ByteCount; VAR sizeReturned: ByteCount; itemData: UNIV Ptr): OSStatus; C;
  244. FUNCTION RemoveTSMDocumentCollectionItem(idocID: TSMDocumentID; itemTag: CollectionTag; id: UInt32): OSStatus; C;
  245. FUNCTION ReleaseTSMDocumentInlineHoles(idocID: TSMDocumentID): OSStatus; C;
  246. {  Low level TSMContext routines  }
  247. FUNCTION FixTSMContext(context: TSMContext): OSStatus; C;
  248. FUNCTION ActivateTSMContext(context: TSMContext): OSStatus; C;
  249. FUNCTION DeactivateTSMContext(context: TSMContext): OSStatus; C;
  250. {$IFC FOR_PTR_BASED_AE }
  251. FUNCTION EditInlineRegion(context: TSMContext; VAR theEvent: AppleEvent): OSStatus; C;
  252. {$ENDC}
  253. FUNCTION ReleaseTSMContextInlineHoles(context: TSMContext): OSStatus; C;
  254. FUNCTION TSMContextUseFloatingWindow(context: TSMContext; useWindow: BOOLEAN): OSStatus; C;
  255. FUNCTION TSMContextSetPasswordMode(context: TSMContext; Enabled: BOOLEAN): OSStatus; C;
  256. FUNCTION GetTSMFeature(context: TSMContext; feature: UInt32): BOOLEAN; C;
  257. FUNCTION GetTSMHILayer: HILayerRef; C;
  258. {  Text service developer API's  }
  259. FUNCTION TSMRegisterMenu(context: TSMContext; VAR menu: HIMenu): OSStatus; C;
  260. {$IFC FOR_PTR_BASED_AE }
  261. FUNCTION GetTSMUpdateEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext; theText: TextObject; fixLen: LONGINT; updateRng: ReplaceRangeArrayPtr; hiliteRng: HiliteRangeArrayPtr; clauseRgn: ClauseOffsetArrayPtr; pinRange: TextRegionRangePtr; InlineHoleID: UInt32): OSStatus; C;
  262. FUNCTION GetTSMPosToOffsetEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext; point: Point; Dragging: BOOLEAN): OSStatus; C;
  263. FUNCTION GetTSMOffsetToPosEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext; offset: ByteOffset; InlineHoleID: UInt32): OSStatus; C;
  264. FUNCTION GetTSMGetRegionEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext; requestType: GetRegionClass; requestRange: GetRegionRangePtr; InlineHoleID: UInt32): OSStatus; C;
  265. FUNCTION GetTSMShowHideWindowEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext; showIt: BOOLEAN; InquireState: BOOLEAN): OSStatus; C;
  266. FUNCTION GetTSMServiceChangedEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext): OSStatus; C;
  267. FUNCTION GetTSMReplyEvent(VAR theAppleEvent: AppleEventPtr; context: TSMContext): OSStatus; C;
  268. FUNCTION AESendFromTSMService(context: TSMContext; {CONST}VAR theAppleEvent: AppleEvent; VAR reply: AppleEvent): OSStatus; C;
  269. {$ENDC}
  270. FUNCTION PostTSMText(context: TSMContext; text: TextObject): OSStatus; C;
  271. FUNCTION GetTSMFloatingWindowGlobalRect(context: TSMContext; VAR globalRect: Rect): OSStatus; C;
  272. {$ENDC}
  273. {$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
  274. {  High level TSM Doucment routines  }
  275. FUNCTION NewTSMDocument(numOfInterface: INTEGER; VAR supportedInterfaceTypes: InterfaceTypeList; VAR idocID: TSMDocumentID; refcon: LONGINT): OSErr;
  276.     {$IFC NOT GENERATINGCFM}
  277.     INLINE $7000, $AA54;
  278.     {$ENDC}
  279. FUNCTION DeleteTSMDocument(idocID: TSMDocumentID): OSErr;
  280.     {$IFC NOT GENERATINGCFM}
  281.     INLINE $7001, $AA54;
  282.     {$ENDC}
  283. FUNCTION ActivateTSMDocument(idocID: TSMDocumentID): OSErr;
  284.     {$IFC NOT GENERATINGCFM}
  285.     INLINE $7002, $AA54;
  286.     {$ENDC}
  287. FUNCTION DeactivateTSMDocument(idocID: TSMDocumentID): OSErr;
  288.     {$IFC NOT GENERATINGCFM}
  289.     INLINE $7003, $AA54;
  290.     {$ENDC}
  291. FUNCTION SetTSMCursor(mousePos: Point): BOOLEAN;
  292.     {$IFC NOT GENERATINGCFM}
  293.     INLINE $7006, $AA54;
  294.     {$ENDC}
  295. FUNCTION FixTSMDocument(idocID: TSMDocumentID): OSErr;
  296.     {$IFC NOT GENERATINGCFM}
  297.     INLINE $7007, $AA54;
  298.     {$ENDC}
  299. {  Utilities  }
  300. FUNCTION UseInputWindow(idocID: TSMDocumentID; useWindow: BOOLEAN): OSErr;
  301.     {$IFC NOT GENERATINGCFM}
  302.     INLINE $7010, $AA54;
  303.     {$ENDC}
  304. {$ENDC}
  305. {$IFC FOR_SYSTEM7_ONLY }
  306. {  Redundant Utilities  }
  307. FUNCTION SendAEFromTSMComponent({CONST}VAR theAppleEvent: AppleEvent; VAR reply: AppleEvent; sendMode: AESendMode; sendPriority: AESendPriority; timeOutInTicks: LONGINT; idleProc: AEIdleUPP; filterProc: AEFilterUPP): OSErr;
  308.     {$IFC NOT GENERATINGCFM}
  309.     INLINE $700B, $AA54;
  310.     {$ENDC}
  311. FUNCTION NewServiceWindow(wStorage: UNIV Ptr; {CONST}VAR boundsRect: Rect; title: Str255; visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; ts: ComponentInstance; VAR window: WindowPtr): OSErr;
  312.     {$IFC NOT GENERATINGCFM}
  313.     INLINE $7011, $AA54;
  314.     {$ENDC}
  315. FUNCTION CloseServiceWindow(window: WindowPtr): OSErr;
  316.     {$IFC NOT GENERATINGCFM}
  317.     INLINE $7012, $AA54;
  318.     {$ENDC}
  319. FUNCTION GetFrontServiceWindow(VAR window: WindowPtr): OSErr;
  320.     {$IFC NOT GENERATINGCFM}
  321.     INLINE $7013, $AA54;
  322.     {$ENDC}
  323. FUNCTION FindServiceWindow(thePoint: Point; VAR theWindow: WindowPtr): INTEGER;
  324.     {$IFC NOT GENERATINGCFM}
  325.     INLINE $7017, $AA54;
  326.     {$ENDC}
  327. FUNCTION SetDefaultInputMethod(ts: Component; VAR slRecordPtr: ScriptLanguageRecord): OSErr;
  328.     {$IFC NOT GENERATINGCFM}
  329.     INLINE $700C, $AA54;
  330.     {$ENDC}
  331. FUNCTION GetDefaultInputMethod(VAR ts: Component; VAR slRecordPtr: ScriptLanguageRecord): OSErr;
  332.     {$IFC NOT GENERATINGCFM}
  333.     INLINE $700D, $AA54;
  334.     {$ENDC}
  335. FUNCTION SetTextServiceLanguage(VAR slRecordPtr: ScriptLanguageRecord): OSErr;
  336.     {$IFC NOT GENERATINGCFM}
  337.     INLINE $700E, $AA54;
  338.     {$ENDC}
  339. FUNCTION GetTextServiceLanguage(VAR slRecordPtr: ScriptLanguageRecord): OSErr;
  340.     {$IFC NOT GENERATINGCFM}
  341.     INLINE $700F, $AA54;
  342.     {$ENDC}
  343. FUNCTION TSMEvent(VAR event: EventRecord): BOOLEAN;
  344.     {$IFC NOT GENERATINGCFM}
  345.     INLINE $7004, $AA54;
  346.     {$ENDC}
  347. FUNCTION TSMMenuSelect(menuResult: LONGINT): BOOLEAN;
  348.     {$IFC NOT GENERATINGCFM}
  349.     INLINE $7005, $AA54;
  350.     {$ENDC}
  351. FUNCTION InitTSMAwareApplication: OSErr;
  352.     {$IFC NOT GENERATINGCFM}
  353.     INLINE $7014, $AA54;
  354.     {$ENDC}
  355. FUNCTION CloseTSMAwareApplication: OSErr;
  356.     {$IFC NOT GENERATINGCFM}
  357.     INLINE $7015, $AA54;
  358.     {$ENDC}
  359. {  Component Manager Interfaces to Input Methods  }
  360. FUNCTION GetScriptLanguageSupport(ts: ComponentInstance; VAR scriptHdl: ScriptLanguageSupportHandle): ComponentResult;
  361.     {$IFC NOT GENERATINGCFM}
  362.     INLINE $2F3C, $0004, $0001, $7000, $A82A;
  363.     {$ENDC}
  364. FUNCTION InitiateTextService(ts: ComponentInstance): ComponentResult;
  365.     {$IFC NOT GENERATINGCFM}
  366.     INLINE $2F3C, $0000, $0002, $7000, $A82A;
  367.     {$ENDC}
  368. FUNCTION TerminateTextService(ts: ComponentInstance): ComponentResult;
  369.     {$IFC NOT GENERATINGCFM}
  370.     INLINE $2F3C, $0000, $0003, $7000, $A82A;
  371.     {$ENDC}
  372. FUNCTION ActivateTextService(ts: ComponentInstance): ComponentResult;
  373.     {$IFC NOT GENERATINGCFM}
  374.     INLINE $2F3C, $0000, $0004, $7000, $A82A;
  375.     {$ENDC}
  376. FUNCTION DeactivateTextService(ts: ComponentInstance): ComponentResult;
  377.     {$IFC NOT GENERATINGCFM}
  378.     INLINE $2F3C, $0000, $0005, $7000, $A82A;
  379.     {$ENDC}
  380. FUNCTION TextServiceEvent(ts: ComponentInstance; numOfEvents: INTEGER; VAR event: EventRecord): ComponentResult;
  381.     {$IFC NOT GENERATINGCFM}
  382.     INLINE $2F3C, $0006, $0006, $7000, $A82A;
  383.     {$ENDC}
  384. FUNCTION GetTextServiceMenu(ts: ComponentInstance; VAR serviceMenu: MenuHandle): ComponentResult;
  385.     {$IFC NOT GENERATINGCFM}
  386.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  387.     {$ENDC}
  388. FUNCTION TextServiceMenuSelect(ts: ComponentInstance; serviceMenu: MenuHandle; item: INTEGER): ComponentResult;
  389.     {$IFC NOT GENERATINGCFM}
  390.     INLINE $2F3C, $0006, $0008, $7000, $A82A;
  391.     {$ENDC}
  392. FUNCTION FixTextService(ts: ComponentInstance): ComponentResult;
  393.     {$IFC NOT GENERATINGCFM}
  394.     INLINE $2F3C, $0000, $0009, $7000, $A82A;
  395.     {$ENDC}
  396. FUNCTION SetTextServiceCursor(ts: ComponentInstance; mousePos: Point): ComponentResult;
  397.     {$IFC NOT GENERATINGCFM}
  398.     INLINE $2F3C, $0004, $000A, $7000, $A82A;
  399.     {$ENDC}
  400. FUNCTION HidePaletteWindows(ts: ComponentInstance): ComponentResult;
  401.     {$IFC NOT GENERATINGCFM}
  402.     INLINE $2F3C, $0000, $000B, $7000, $A82A;
  403.     {$ENDC}
  404. FUNCTION GetServiceList(numOfInterface: INTEGER; VAR supportedInterfaceTypes: OSType; VAR serviceInfo: TextServiceListHandle; VAR seedValue: LONGINT): OSErr;
  405.     {$IFC NOT GENERATINGCFM}
  406.     INLINE $7008, $AA54;
  407.     {$ENDC}
  408. FUNCTION OpenTextService(idocID: TSMDocumentID; aComponent: Component; VAR aComponentInstance: ComponentInstance): OSErr;
  409.     {$IFC NOT GENERATINGCFM}
  410.     INLINE $7009, $AA54;
  411.     {$ENDC}
  412. FUNCTION CloseTextService(idocID: TSMDocumentID; aComponentInstance: ComponentInstance): OSErr;
  413.     {$IFC NOT GENERATINGCFM}
  414.     INLINE $700A, $AA54;
  415.     {$ENDC}
  416. {$ENDC}
  417. {$ALIGN RESET}
  418. {$POP}
  419.  
  420. {$SETC UsingIncludes := TextServicesIncludes}
  421.  
  422. {$ENDC} {__TEXTSERVICES__}
  423.  
  424. {$IFC NOT UsingIncludes}
  425.  END.
  426. {$ENDC}
  427.